home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
clipper
/
rlib20.zip
/
RL_FILET.PRG
< prev
next >
Wrap
Text File
|
1989-02-18
|
536b
|
21 lines
* Function: FILETIME
* Author..: Richard Low
* Syntax..: FILETIME( <expC> )
* Returns.: Character time string of <filename> from directory entry.
FUNCTION FILETIME
PARAMETERS p_fname
IF PCOUNT() = 1
*-- set up array to hold the file time from ADIR()
DECLARE f_ftime[1]
*-- call ADIR to check filespec given and fill time array
IF ADIR( p_fname, '', '', '', f_ftime ) = 1
*-- return time string if all is well
RETURN f_ftime[1]
ENDIF
ENDIF
*-- otherwise, return a null string
RETURN ''